home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / budget.arc / NETPREST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-26  |  896 b   |  46 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  PRINT "NET PRESENT VALUE"
  4. 40  DEFDBL A-Z:DEFINT J,N
  5. 50  DEF FNA(X)=INT(X*100+0.5)/100
  6. 60  PRINT
  7. 70  PRINT "INVESTMENT ";
  8. 80  INPUT C0
  9. 90  C0=-FNA(C0)
  10. 100  PRINT "NUMBER OF YEARS ";
  11. 110  INPUT N
  12. 120  DIM C(N)
  13. 130  PRINT "REQUIRED RATE OF RETURN (%) ";
  14. 140  INPUT R
  15. 150  R=R/100+1
  16. 160  F=0
  17. 170  PRINT
  18. 180  PRINT "ENTER CASH FLOW AMOUNTS EACH YEAR ";
  19. 190  PRINT "(ENTER OUTFLOWS AS NEGATIVE)."
  20. 200  PRINT
  21. 210  FOR J=1 TO N
  22. 220  IF J>1 THEN 250
  23. 230  PRINT "INFLOW FOR YEAR";
  24. 240  GOTO 260
  25. 250  PRINT "               ";
  26. 260  PRINT J;
  27. 270  INPUT C(J)
  28. 280  F=F+FNA(C(J))
  29. 290  NEXT J
  30. 300  T=C0
  31. 310  REM  ADD PRESENT VALUES FOR EACH YEAR BASED ON RATE OF R
  32. 320  FOR J=1 TO N
  33. 330  T=T+FNA(C(J)/R^J)
  34. 340  NEXT J
  35. 350  PRINT
  36. 360  PRINT "NET PRESENT VALUE =";
  37. 370  PRINT USING "$$,###,###,###.##"; T
  38. 380  REM  RESTART OF END PROGRAM?
  39. 390  PRINT
  40. 400  PRINT "DO YOU WANT TO RE-RUN THIS PROGRAM";
  41. 410  PRINT " WITH NEW DATA (Y/N)?"
  42. 420  Z$=INKEY$:IF Z$="" THEN 420
  43. 430  IF Z$="Y" OR Z$="y" THEN CLEAR:GOTO 40
  44. 440  IF Z$<>"N" AND Z$<>"n" THEN 400
  45. 450  END
  46.